/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_07 / misc / viewspool2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 f4 20 3e 20 | 24 2e 76 69 65 77 73 70 |..... > |$.viewsp|
|00000010| 6f 6f 6c 0d 00 14 0e de | 20 6d 24 28 39 39 39 39 |ool.....| m$(9999|
|00000020| 29 0d 00 1e 0a 2a 66 78 | 34 2c 30 0d 00 28 2c eb |)....*fx|4,0..(,.|
|00000030| 31 32 3a 6c 69 6e 65 24 | 3d 22 6e 22 3a 6d 61 78 |12:line$|="n":max|
|00000040| 6c 69 6e 65 25 3d 39 39 | 39 38 3a fb 36 3a 64 69 |line%=99|98:.6:di|
|00000050| 72 24 3d 22 24 2e 22 0d | 00 32 06 2a 2e 0d 00 3c |r$="$.".|.2.*...<|
|00000060| 30 fb 37 3a f1 27 22 54 | 68 65 20 66 6f 6c 6c 6f |0.7:.'"T|he follo|
|00000070| 77 69 6e 67 20 3c 6b 65 | 79 73 3e 20 63 6f 6e 74 |wing <ke|ys> cont|
|00000080| 72 6f 6c 20 76 69 65 77 | 69 6e 67 3a 22 0d 00 46 |rol view|ing:"..F|
|00000090| 3f f1 27 22 3c 50 41 47 | 45 20 55 50 3e 20 70 61 |?.'"<PAG|E UP> pa|
|000000a0| 67 65 20 62 61 63 6b 77 | 61 72 64 73 22 8a 34 33 |ge backw|ards".43|
|000000b0| 29 22 3c 50 41 47 45 20 | 44 4f 57 4e 3e 20 70 61 |)"<PAGE |DOWN> pa|
|000000c0| 67 65 20 66 6f 72 77 61 | 72 64 73 22 0d 00 50 43 |ge forwa|rds"..PC|
|000000d0| f1 22 3c 55 50 20 41 52 | 52 4f 57 3e 20 62 61 63 |."<UP AR|ROW> bac|
|000000e0| 6b 20 6f 6e 65 20 6c 69 | 6e 65 22 8a 34 33 29 22 |k one li|ne".43)"|
|000000f0| 3c 44 4f 57 4e 20 41 52 | 52 4f 57 3e 20 66 6f 72 |<DOWN AR|ROW> for|
|00000100| 77 61 72 64 73 20 6f 6e | 65 20 6c 69 6e 65 22 0d |wards on|e line".|
|00000110| 00 5a 46 f1 22 3c 50 3e | 20 70 72 69 6e 74 20 72 |.ZF."<P>| print r|
|00000120| 65 71 75 65 73 74 65 64 | 20 6c 69 6e 65 73 20 6f |equested| lines o|
|00000130| 6e 20 70 72 69 6e 74 65 | 72 20 20 20 20 20 20 20 |n printe|r       |
|00000140| 3c 47 3e 20 67 6f 74 6f | 20 6c 69 6e 65 20 6e 75 |<G> goto| line nu|
|00000150| 6d 62 65 72 22 0d 00 64 | 3d f1 22 3c 41 3e 20 61 |mber"..d|=."<A> a|
|00000160| 72 63 68 69 76 65 20 6c | 69 6e 65 73 20 74 6f 20 |rchive l|ines to |
|00000170| 61 20 6e 65 77 20 66 69 | 6c 65 20 20 20 20 20 20 |a new fi|le      |
|00000180| 20 20 20 20 20 20 3c 51 | 3e 20 74 6f 20 51 55 49 |      <Q|> to QUI|
|00000190| 54 22 0d 00 6e 2c f1 22 | 3c 48 4f 4d 45 3e 20 67 |T"..n,."|<HOME> g|
|000001a0| 6f 74 6f 20 53 74 61 72 | 74 22 8a 34 33 29 22 3c |oto Star|t".43)"<|
|000001b0| 45 4e 44 3e 20 67 6f 74 | 6f 20 45 6e 64 22 0d 00 |END> got|o End"..|
|000001c0| 78 40 f1 22 3c 53 50 41 | 43 45 3e 20 66 6f 72 77 |x@."<SPA|CE> forw|
|000001d0| 61 72 64 73 20 6f 6e 65 | 20 6c 69 6e 65 22 8a 34 |ards one| line".4|
|000001e0| 33 29 22 3c 4c 3e 20 73 | 68 6f 77 2f 68 69 64 65 |3)"<L> s|how/hide|
|000001f0| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 73 22 0d 00 | line nu|mbers"..|
|00000200| 82 04 0d 00 8c 51 f1 27 | 27 22 45 6e 74 65 72 20 |.....Q.'|'"Enter |
|00000210| 73 70 6f 6f 6c 65 64 20 | 66 69 6c 65 6e 61 6d 65 |spooled |filename|
|00000220| 20 28 69 6e 63 6c 75 64 | 69 6e 67 20 64 69 72 65 | (includ|ing dire|
|00000230| 63 74 6f 72 79 29 20 22 | 3b 3a f2 69 6e 70 75 74 |ctory) "|;:.input|
|00000240| 28 30 2c 33 33 29 3a 66 | 69 6c 65 24 3d 69 6e 70 |(0,33):f|ile$=inp|
|00000250| 75 74 24 0d 00 96 44 f1 | 27 22 45 6e 74 65 72 20 |ut$...D.|'"Enter |
|00000260| 6d 61 78 69 6d 75 6d 20 | 6c 69 6e 65 20 6e 75 6d |maximum |line num|
|00000270| 62 65 72 20 74 6f 20 6c | 6f 61 64 2c 20 69 66 20 |ber to l|oad, if |
|00000280| 72 65 71 75 69 72 65 64 | 20 22 3b 3a f2 69 6e 70 |required| ";:.inp|
|00000290| 75 74 28 33 2c 34 29 0d | 00 a0 23 e7 20 69 6e 70 |ut(3,4).|..#. inp|
|000002a0| 75 74 24 3c 3e 22 22 20 | 6d 61 78 6c 69 6e 65 25 |ut$<>"" |maxline%|
|000002b0| 3d bb 28 69 6e 70 75 74 | 24 29 0d 00 aa 1e f1 8a |=.(input|$)......|
|000002c0| 30 2c 33 31 29 22 4c 6f | 61 64 69 6e 67 20 6c 69 |0,31)"Lo|ading li|
|000002d0| 6e 65 20 6e 6f 2e 22 3b | 0d 00 b4 04 0d 00 be 1d |ne no.";|........|
|000002e0| 6d 24 28 30 29 3d 22 53 | 70 6f 6f 6c 66 69 6c 65 |m$(0)="S|poolfile|
|000002f0| 3a 20 22 2b 66 69 6c 65 | 24 0d 00 c8 37 40 25 3d |: "+file|$...7@%=|
|00000300| 26 39 30 34 3a 66 69 6c | 65 25 3d 8e 28 64 69 72 |&904:fil|e%=.(dir|
|00000310| 24 2b 66 69 6c 65 24 29 | 3a 69 25 3d 31 3a 62 79 |$+file$)|:i%=1:by|
|00000320| 74 65 25 3d 31 30 3a 73 | 61 76 65 24 3d 22 6e 22 |te%=10:s|ave$="n"|
|00000330| 0d 00 d2 07 d1 3d 30 0d | 00 dc 05 f5 0d 00 e6 04 |.....=0.|........|
|00000340| 0d 00 f0 25 e7 20 62 79 | 74 65 25 3c 3e 31 30 20 |...%. by|te%<>10 |
|00000350| 80 20 62 79 74 65 25 3c | 3e 31 33 20 73 61 76 65 |. byte%<|>13 save|
|00000360| 24 3d 22 79 22 0d 00 fa | 05 f5 0d 01 04 29 e7 20 |$="y"...|.....). |
|00000370| 73 61 76 65 24 3d 22 6e | 22 20 62 79 74 65 25 3d |save$="n|" byte%=|
|00000380| 9a 23 66 69 6c 65 25 20 | 8b 20 73 61 76 65 24 3d |.#file% |. save$=|
|00000390| 22 6e 22 0d 01 0e 13 e7 | 20 c5 23 66 69 6c 65 25 |"n".....| .#file%|
|000003a0| 20 e5 8d 44 5e 41 0d 01 | 18 2b e7 20 62 79 74 65 | ..D^A..|.+. byte|
|000003b0| 25 3d 38 20 6d 24 28 69 | 25 29 3d c0 6d 24 28 69 |%=8 m$(i|%)=.m$(i|
|000003c0| 25 29 2c 28 a9 28 6d 24 | 28 69 25 29 29 2d 31 29 |%),(.(m$|(i%))-1)|
|000003d0| 29 0d 01 22 20 e7 20 62 | 79 74 65 25 3c 33 32 20 |).." . b|yte%<32 |
|000003e0| 84 20 62 79 74 65 25 3e | 31 32 36 20 e5 8d 54 76 |. byte%>|126 ..Tv|
|000003f0| 41 0d 01 2c 14 6d 24 28 | 69 25 29 2b 3d bd 28 62 |A..,.m$(|i%)+=.(b|
|00000400| 79 74 65 25 29 0d 01 36 | 28 fd 20 62 79 74 65 25 |yte%)..6|(. byte%|
|00000410| 3d 31 30 20 84 20 62 79 | 74 65 25 3d 31 33 20 84 |=10 . by|te%=13 .|
|00000420| 20 a9 28 6d 24 28 69 25 | 29 29 3e 37 39 0d 01 40 | .(m$(i%|))>79..@|
|00000430| 04 0d 01 4a 2c f1 8a 31 | 37 2c 33 31 29 69 25 3b |...J,..1|7,31)i%;|
|00000440| 3a e7 20 a9 28 6d 24 28 | 69 25 29 29 3c 38 31 20 |:. .(m$(|i%))<81 |
|00000450| 62 79 74 65 25 3d 9a 23 | 66 69 6c 65 25 0d 01 54 |byte%=.#|file%..T|
|00000460| 09 69 25 2b 3d 31 0d 01 | 5e 1a fd c5 23 66 69 6c |.i%+=1..|^...#fil|
|00000470| 65 25 20 84 20 69 25 3e | 6d 61 78 6c 69 6e 65 25 |e% . i%>|maxline%|
|00000480| 0d 01 68 04 0d 01 72 07 | d9 23 30 0d 01 7c 17 6c |..h...r.|.#0..|.l|
|00000490| 61 73 74 6c 69 6e 65 25 | 3d 69 25 2b 31 3a 69 25 |astline%|=i%+1:i%|
|000004a0| 3d 30 0d 01 86 30 6d 24 | 28 6c 61 73 74 6c 69 6e |=0...0m$|(lastlin|
|000004b0| 65 25 29 3d 22 2d 2a 2d | 20 45 6e 64 20 6f 66 20 |e%)="-*-| End of |
|000004c0| 73 70 6f 6f 6c 66 69 6c | 65 3a 20 22 2b 66 69 6c |spoolfil|e: "+fil|
|000004d0| 65 24 0d 01 90 06 ef 37 | 0d 01 9a 0a 2a 66 78 34 |e$.....7|....*fx4|
|000004e0| 2c 31 0d 01 a4 17 ee 20 | 85 20 69 25 2d 3d 33 31 |,1..... |. i%-=31|
|000004f0| 3a fb 37 3a e5 8d 74 78 | 41 0d 01 ae 04 0d 01 b8 |:.7:..tx|A.......|
|00000500| 0e e7 69 25 3c 30 20 69 | 25 3d 30 0d 01 c2 05 db |..i%<0 i|%=0.....|
|00000510| 0d 01 cc 04 0d 01 d6 0e | e3 6a 25 3d 31 20 b8 20 |........|.j%=1 . |
|00000520| 33 31 0d 01 e0 1c e7 20 | 69 25 3d 6c 61 73 74 6c |31..... |i%=lastl|
|00000530| 69 6e 65 25 20 84 20 69 | 25 3d 30 20 fb 36 0d 01 |ine% . i|%=0 .6..|
|00000540| ea 22 e7 20 6c 69 6e 65 | 24 3d 22 79 22 20 f1 c0 |.". line|$="y" ..|
|00000550| 6d 24 28 69 25 29 2c 37 | 35 29 8a 37 35 29 69 25 |m$(i%),7|5).75)i%|
|00000560| 0d 01 f4 17 e7 20 6c 69 | 6e 65 24 3d 22 6e 22 20 |..... li|ne$="n" |
|00000570| f1 6d 24 28 69 25 29 0d | 01 fe 06 fb 37 0d 02 08 |.m$(i%).|....7...|
|00000580| 20 69 25 2b 3d 31 20 3a | 20 e7 20 69 25 3e 6c 61 | i%+=1 :| . i%>la|
|00000590| 73 74 6c 69 6e 65 25 20 | 6a 25 3d 33 32 0d 02 12 |stline% |j%=32...|
|000005a0| 05 ed 0d 02 1c 04 0d 02 | 26 09 69 6e 24 3d be 0d |........|&.in$=..|
|000005b0| 02 30 28 e7 20 a6 28 2d | 36 34 29 20 8c 20 69 25 |.0(. .(-|64) . i%|
|000005c0| 2d 3d 36 32 20 3a 20 e5 | 20 8d 74 78 41 20 3a 20 |-=62 : .| .txA : |
|000005d0| f4 20 70 67 20 75 70 0d | 02 3a 2e e7 20 a6 28 2d |. pg up.|.:.. .(-|
|000005e0| 35 38 29 20 8c 20 69 25 | 2d 3d 33 32 20 3a 20 e5 |58) . i%|-=32 : .|
|000005f0| 20 8d 74 78 41 20 3a 20 | f4 20 6f 6e 65 20 6c 69 | .txA : |. one li|
|00000600| 6e 65 20 75 70 0d 02 44 | 2b e7 20 a6 28 2d 36 33 |ne up..D|+. .(-63|
|00000610| 29 20 8c 20 69 25 3d 30 | 20 3a 20 e5 20 8d 74 78 |) . i%=0| : . .tx|
|00000620| 41 20 3a 20 f4 20 67 6f | 74 6f 20 73 74 61 72 74 |A : . go|to start|
|00000630| 0d 02 4e 35 e7 20 a6 28 | 2d 31 30 36 29 20 8c 20 |..N5. .(|-106) . |
|00000640| 69 25 3d 6c 61 73 74 6c | 69 6e 65 25 2d 33 30 20 |i%=lastl|ine%-30 |
|00000650| 3a 20 e5 20 8d 74 78 41 | 20 3a 20 f4 20 67 6f 74 |: . .txA| : . got|
|00000660| 6f 20 65 6e 64 0d 02 58 | 23 e7 20 a6 28 2d 35 36 |o end..X|#. .(-56|
|00000670| 29 20 8c 20 f2 70 72 69 | 6e 74 6c 69 6e 65 73 20 |) . .pri|ntlines |
|00000680| 3a 20 e5 20 8d 74 78 41 | 0d 02 62 22 e7 20 a6 28 |: . .txA|..b". .(|
|00000690| 2d 38 34 29 20 8c 20 f2 | 67 6f 74 6f 5f 6c 69 6e |-84) . .|goto_lin|
|000006a0| 65 20 3a 20 e5 20 8d 74 | 78 41 0d 02 6c 26 e7 20 |e : . .t|xA..l&. |
|000006b0| a6 28 2d 36 36 29 20 8c | 20 f2 61 72 63 68 69 76 |.(-66) .| .archiv|
|000006c0| 65 5f 6c 69 6e 65 73 20 | 3a 20 e5 20 8d 74 78 41 |e_lines |: . .txA|
|000006d0| 0d 02 76 22 e7 20 a6 28 | 2d 38 37 29 20 8c 20 f2 |..v". .(|-87) . .|
|000006e0| 73 68 6f 77 6c 69 6e 65 | 73 20 3a 20 e5 20 8d 74 |showline|s : . .t|
|000006f0| 78 41 0d 02 80 51 e7 20 | a6 28 2d 31 37 29 20 8c |xA...Q. |.(-17) .|
|00000700| 20 fb 36 20 3a 20 f1 8a | 30 2c 33 31 29 22 43 6f | .6 : ..|0,31)"Co|
|00000710| 6d 66 69 72 6d 20 51 75 | 69 74 20 3c 79 20 6f 72 |mfirm Qu|it <y or|
|00000720| 20 6e 3e 20 22 3b 20 3a | 20 fb 37 20 3a 20 65 78 | n> "; :| .7 : ex|
|00000730| 24 3d be 20 3a 20 e7 20 | 65 78 24 3d 22 79 22 20 |$=. : . |ex$="y" |
|00000740| 8c 20 f9 0d 02 8a 1e e7 | 20 a6 28 2d 38 36 29 20 |. ......| .(-86) |
|00000750| 8c 20 69 25 2d 3d 33 31 | 20 3a 20 e5 20 8d 74 78 |. i%-=31| : . .tx|
|00000760| 41 0d 02 94 06 fb 37 0d | 02 9e 2a e7 20 69 25 3e |A.....7.|..*. i%>|
|00000770| 6c 61 73 74 6c 69 6e 65 | 25 20 69 25 3d 6c 61 73 |lastline|% i%=las|
|00000780| 74 6c 69 6e 65 25 2d 33 | 30 20 3a 20 e5 8d 74 78 |tline%-3|0 : ..tx|
|00000790| 41 0d 02 a8 1c e7 20 69 | 25 3d 6c 61 73 74 6c 69 |A..... i|%=lastli|
|000007a0| 6e 65 25 20 84 20 69 25 | 3d 30 20 fb 36 0d 02 b2 |ne% . i%|=0 .6...|
|000007b0| 21 e7 20 a6 28 2d 37 39 | 29 20 8c 20 e5 20 8d 74 |!. .(-79|) . . .t|
|000007c0| 78 41 20 3a 20 f4 20 70 | 67 20 64 6f 77 6e 0d 02 |xA : . p|g down..|
|000007d0| bc 34 e7 20 a6 28 2d 34 | 32 29 20 80 20 6c 69 6e |.4. .(-4|2) . lin|
|000007e0| 65 24 3d 22 79 22 20 f1 | c0 6d 24 28 69 25 29 2c |e$="y" .|.m$(i%),|
|000007f0| 37 35 29 8a 37 35 29 69 | 25 3a 69 25 2b 3d 31 3a |75).75)i|%:i%+=1:|
|00000800| fb 37 0d 02 c6 29 e7 20 | a6 28 2d 34 32 29 20 80 |.7...). |.(-42) .|
|00000810| 20 6c 69 6e 65 24 3d 22 | 6e 22 20 f1 6d 24 28 69 | line$="|n" .m$(i|
|00000820| 25 29 3a 69 25 2b 3d 31 | 3a fb 37 0d 02 d0 34 e7 |%):i%+=1|:.7...4.|
|00000830| 20 a6 28 2d 39 39 29 20 | 80 20 6c 69 6e 65 24 3d | .(-99) |. line$=|
|00000840| 22 79 22 20 f1 c0 6d 24 | 28 69 25 29 2c 37 35 29 |"y" ..m$|(i%),75)|
|00000850| 8a 37 35 29 69 25 3a 69 | 25 2b 3d 31 3a fb 37 0d |.75)i%:i|%+=1:.7.|
|00000860| 02 da 29 e7 20 a6 28 2d | 39 39 29 20 80 20 6c 69 |..). .(-|99) . li|
|00000870| 6e 65 24 3d 22 6e 22 20 | f1 6d 24 28 69 25 29 3a |ne$="n" |.m$(i%):|
|00000880| 69 25 2b 3d 31 3a fb 37 | 0d 02 e4 04 0d 02 ee 09 |i%+=1:.7|........|
|00000890| e5 8d 54 66 42 0d 02 f8 | 04 0d 03 02 11 dd 20 f2 |..TfB...|...... .|
|000008a0| 70 72 69 6e 74 6c 69 6e | 65 73 0d 03 0c 04 0d 03 |printlin|es......|
|000008b0| 16 06 fb 36 0d 03 20 42 | f1 8a 30 2c 33 31 29 22 |...6.. B|..0,31)"|
|000008c0| 45 6e 74 65 72 20 73 74 | 61 72 74 20 70 72 69 6e |Enter st|art prin|
|000008d0| 74 20 6c 69 6e 65 20 22 | 3b 3a f2 69 6e 70 75 74 |t line "|;:.input|
|000008e0| 28 31 2c 34 29 3a 73 74 | 61 72 74 25 3d bb 28 69 |(1,4):st|art%=.(i|
|000008f0| 6e 70 75 74 24 29 0d 03 | 2a 12 fb 36 3a f1 8a 30 |nput$)..|*..6:..0|
|00000900| 2c 33 31 29 89 35 30 3b | 0d 03 34 3e f1 8a 30 2c |,31).50;|..4>..0,|
|00000910| 33 31 29 22 45 6e 74 65 | 72 20 65 6e 64 20 70 72 |31)"Ente|r end pr|
|00000920| 69 6e 74 20 6c 69 6e 65 | 20 22 3b 3a f2 69 6e 70 |int line| ";:.inp|
|00000930| 75 74 28 31 2c 34 29 3a | 65 6e 64 25 3d bb 28 69 |ut(1,4):|end%=.(i|
|00000940| 6e 70 75 74 24 29 0d 03 | 3e 18 e7 20 65 6e 64 25 |nput$)..|>.. end%|
|00000950| 3d 30 20 65 6e 64 25 3d | 73 74 61 72 74 25 0d 03 |=0 end%=|start%..|
|00000960| 48 17 e7 20 65 6e 64 25 | 3c 73 74 61 72 74 25 20 |H.. end%|<start% |
|00000970| e5 8d 54 60 43 0d 03 52 | 08 f1 3a ef 32 0d 03 5c |..T`C..R|..:.2..\|
|00000980| 16 e3 20 6a 25 3d 73 74 | 61 72 74 25 20 b8 20 65 |.. j%=st|art% . e|
|00000990| 6e 64 25 0d 03 66 0b f1 | 6d 24 28 6a 25 29 0d 03 |nd%..f..|m$(j%)..|
|000009a0| 70 19 e7 6a 25 3e 6c 61 | 73 74 6c 69 6e 65 25 20 |p..j%>la|stline% |
|000009b0| 6a 25 3d 65 6e 64 25 0d | 03 7a 05 ed 0d 03 84 0d |j%=end%.|.z......|
|000009c0| ef 33 3a 69 25 2d 3d 33 | 31 0d 03 8e 05 e1 0d 03 |.3:i%-=3|1.......|
|000009d0| 98 04 0d 03 a2 10 dd 20 | f2 73 68 6f 77 6c 69 6e |....... |.showlin|
|000009e0| 65 73 0d 03 ac 04 0d 03 | b6 21 e7 20 6c 69 6e 65 |es......|.!. line|
|000009f0| 24 3d 22 6e 22 20 8c 20 | 6c 69 6e 65 24 3d 22 79 |$="n" . |line$="y|
|00000a00| 22 3a e5 8d 64 4a 43 0d | 03 c0 1b e7 20 6c 69 6e |":..dJC.|.... lin|
|00000a10| 65 24 3d 22 79 22 20 8c | 20 6c 69 6e 65 24 3d 22 |e$="y" .| line$="|
|00000a20| 6e 22 0d 03 ca 0a 69 25 | 2d 3d 33 31 0d 03 d4 05 |n"....i%|-=31....|
|00000a30| e1 0d 03 de 04 0d 03 e8 | 10 dd 20 f2 67 6f 74 6f |........|.. .goto|
|00000a40| 5f 6c 69 6e 65 0d 03 f2 | 04 0d 03 fc 06 fb 36 0d |_line...|......6.|
|00000a50| 04 06 3c f1 8a 30 2c 33 | 31 29 22 45 6e 74 65 72 |..<..0,3|1)"Enter|
|00000a60| 20 73 74 61 72 74 20 6c | 69 6e 65 20 22 3b 3a f2 | start l|ine ";:.|
|00000a70| 69 6e 70 75 74 28 31 2c | 34 29 3a 73 74 61 72 74 |input(1,|4):start|
|00000a80| 25 3d bb 28 69 6e 70 75 | 74 24 29 0d 04 10 2c e7 |%=.(inpu|t$)...,.|
|00000a90| 20 73 74 61 72 74 25 3e | 2d 31 20 80 20 73 74 61 | start%>|-1 . sta|
|00000aa0| 72 74 25 3c 6c 61 73 74 | 6c 69 6e 65 25 20 69 25 |rt%<last|line% i%|
|00000ab0| 3d 73 74 61 72 74 25 0d | 04 1a 26 e7 20 73 74 61 |=start%.|..&. sta|
|00000ac0| 72 74 25 3e 6c 61 73 74 | 6c 69 6e 65 25 20 69 25 |rt%>last|line% i%|
|00000ad0| 3d 6c 61 73 74 6c 69 6e | 65 25 2d 33 30 0d 04 24 |=lastlin|e%-30..$|
|00000ae0| 05 e1 0d 04 2e 04 0d 04 | 38 14 dd 20 f2 61 72 63 |........|8.. .arc|
|00000af0| 68 69 76 65 5f 6c 69 6e | 65 73 0d 04 42 04 0d 04 |hive_lin|es..B...|
|00000b00| 4c 06 fb 36 0d 04 56 44 | f1 8a 30 2c 33 31 29 22 |L..6..VD|..0,31)"|
|00000b10| 45 6e 74 65 72 20 73 74 | 61 72 74 20 61 72 63 68 |Enter st|art arch|
|00000b20| 69 76 65 20 6c 69 6e 65 | 20 22 3b 3a f2 69 6e 70 |ive line| ";:.inp|
|00000b30| 75 74 28 31 2c 34 29 3a | 73 74 61 72 74 25 3d bb |ut(1,4):|start%=.|
|00000b40| 28 69 6e 70 75 74 24 29 | 0d 04 60 12 fb 36 3a f1 |(input$)|..`..6:.|
|00000b50| 8a 30 2c 33 31 29 89 35 | 30 3b 0d 04 6a 40 f1 8a |.0,31).5|0;..j@..|
|00000b60| 30 2c 33 31 29 22 45 6e | 74 65 72 20 65 6e 64 20 |0,31)"En|ter end |
|00000b70| 61 72 63 68 69 76 65 20 | 6c 69 6e 65 20 22 3b 3a |archive |line ";:|
|00000b80| f2 69 6e 70 75 74 28 31 | 2c 34 29 3a 65 6e 64 25 |.input(1|,4):end%|
|00000b90| 3d bb 28 69 6e 70 75 74 | 24 29 0d 04 74 12 fb 36 |=.(input|$)..t..6|
|00000ba0| 3a f1 8a 30 2c 33 31 29 | 89 35 30 3b 0d 04 7e 3b |:..0,31)|.50;..~;|
|00000bb0| f1 8a 30 2c 33 31 29 22 | 45 6e 74 65 72 20 6e 65 |..0,31)"|Enter ne|
|00000bc0| 77 20 66 69 6c 65 6e 61 | 6d 65 20 22 3b 3a f2 69 |w filena|me ";:.i|
|00000bd0| 6e 70 75 74 28 30 2c 33 | 33 29 3a 66 69 6c 65 24 |nput(0,3|3):file$|
|00000be0| 3d 69 6e 70 75 74 24 0d | 04 88 12 fb 36 3a f1 8a |=input$.|....6:..|
|00000bf0| 30 2c 33 31 29 89 35 30 | 3b 0d 04 92 1f f1 8a 30 |0,31).50|;......0|
|00000c00| 2c 33 31 29 22 53 61 76 | 69 6e 67 20 22 64 69 72 |,31)"Sav|ing "dir|
|00000c10| 24 3b 66 69 6c 65 24 3b | 0d 04 9c 18 e7 20 65 6e |$;file$;|..... en|
|00000c20| 64 25 3d 30 20 65 6e 64 | 25 3d 73 74 61 72 74 25 |d%=0 end|%=start%|
|00000c30| 0d 04 a6 13 e7 20 65 6e | 64 25 3c 73 74 61 72 74 |..... en|d%<start|
|00000c40| 25 20 e1 0d 04 b0 04 0d | 04 ba 17 66 69 6c 65 25 |% ......|...file%|
|00000c50| 3d ae 28 64 69 72 24 2b | 66 69 6c 65 24 29 0d 04 |=.(dir$+|file$)..|
|00000c60| c4 05 db 0d 04 ce 16 e3 | 20 6a 25 3d 73 74 61 72 |........| j%=star|
|00000c70| 74 25 20 b8 20 65 6e 64 | 25 0d 04 d8 17 f1 3a e3 |t% . end|%.....:.|
|00000c80| 6b 25 3d 31 20 b8 20 a9 | 28 6d 24 28 6a 25 29 29 |k%=1 . .|(m$(j%))|
|00000c90| 0d 04 e2 13 f1 c1 6d 24 | 28 6a 25 29 2c 6b 25 2c |......m$|(j%),k%,|
|00000ca0| 31 29 3b 0d 04 ec 1c d5 | 23 66 69 6c 65 25 2c 97 |1);.....|#file%,.|
|00000cb0| 28 c1 6d 24 28 6a 25 29 | 2c 6b 25 2c 31 29 29 0d |(.m$(j%)|,k%,1)).|
|00000cc0| 04 f6 05 ed 0d 05 00 04 | 0d 05 0a 19 d5 23 66 69 |........|.....#fi|
|00000cd0| 6c 65 25 2c 31 33 3a d5 | 23 66 69 6c 65 25 2c 31 |le%,13:.|#file%,1|
|00000ce0| 30 0d 05 14 04 0d 05 1e | 19 e7 6a 25 3d 6c 61 73 |0.......|..j%=las|
|00000cf0| 74 6c 69 6e 65 25 20 6a | 25 3d 65 6e 64 25 0d 05 |tline% j|%=end%..|
|00000d00| 28 05 ed 0d 05 32 0e d9 | 23 30 3a 69 25 2d 3d 33 |(....2..|#0:i%-=3|
|00000d10| 31 0d 05 3c 05 e1 0d 05 | 46 04 0d 05 50 1b dd 20 |1..<....|F...P.. |
|00000d20| f2 69 6e 70 75 74 28 73 | 74 72 74 79 70 65 25 2c |.input(s|trtype%,|
|00000d30| 6d 61 78 25 29 0d 05 5a | 04 0d 05 64 45 f4 20 73 |max%)..Z|...dE. s|
|00000d40| 74 72 74 79 70 65 25 20 | 2d 20 30 3a 20 61 6c 70 |trtype% |- 0: alp|
|00000d50| 68 61 6e 75 6d 65 72 69 | 63 2c 20 31 3a 20 6e 75 |hanumeri|c, 1: nu|
|00000d60| 6d 65 72 69 63 2c 20 32 | 3a 20 72 65 74 75 72 6e |meric, 2|: return|
|00000d70| 20 66 69 6c 6c 65 64 20 | 73 74 72 69 6e 67 0d 05 | filled |string..|
|00000d80| 6e 43 f4 20 20 20 20 20 | 20 20 20 20 20 20 20 33 |nC.     |       3|
|00000d90| 3a 20 20 20 22 20 20 20 | 20 22 20 20 20 20 2c 20 |:   "   | "    , |
|00000da0| 34 3a 20 20 22 20 20 20 | 22 20 2c 20 20 20 20 64 |4:  "   |" ,    d|
|00000db0| 6f 20 6e 6f 74 20 66 69 | 6c 6c 20 73 74 72 69 6e |o not fi|ll strin|
|00000dc0| 67 0d 05 78 26 f4 20 69 | 6e 70 75 74 24 20 72 65 |g..x&. i|nput$ re|
|00000dd0| 74 75 72 6e 65 64 20 77 | 69 74 68 20 69 6e 70 75 |turned w|ith inpu|
|00000de0| 74 20 76 61 6c 75 65 0d | 05 82 04 0d 05 8c 17 e7 |t value.|........|
|00000df0| 20 73 74 72 74 79 70 65 | 25 3d 32 20 e5 20 8d 54 | strtype|%=2 . .T|
|00000e00| 76 46 0d 05 96 2f fb 36 | 3a 69 6e 70 75 74 24 3d |vF.../.6|:input$=|
|00000e10| 22 22 20 3a 20 f1 c4 6d | 61 78 25 2c 22 20 22 29 |"" : ..m|ax%," ")|
|00000e20| 22 3c 22 c4 6d 61 78 25 | 2b 31 2c bd 28 38 29 29 |"<".max%|+1,.(8))|
|00000e30| 3b 0d 05 a0 04 0d 05 aa | 1a 63 68 72 25 3d a5 20 |;.......|.chr%=. |
|00000e40| 3a 20 77 6f 72 6b 24 3d | bd 28 63 68 72 25 29 0d |: work$=|.(chr%).|
|00000e50| 05 b4 26 e7 20 63 68 72 | 25 3d 31 32 37 20 80 20 |..&. chr|%=127 . |
|00000e60| 69 6e 70 75 74 24 3d 22 | 22 20 ef 37 20 3a 20 e5 |input$="|" .7 : .|
|00000e70| 20 8d 74 6a 45 0d 05 be | 12 6c 65 6e 25 3d a9 28 | .tjE...|.len%=.(|
|00000e80| 69 6e 70 75 74 24 29 0d | 05 c8 16 e7 20 63 68 72 |input$).|.... chr|
|00000e90| 25 3d 31 33 20 8c 20 e5 | 20 8d 54 6c 46 0d 05 d2 |%=13 . .| .TlF...|
|00000ea0| 3b f4 20 49 46 20 63 68 | 72 25 3e 30 20 41 4e 44 |;. IF ch|r%>0 AND|
|00000eb0| 20 63 68 72 25 3c 32 37 | 20 54 48 45 4e 20 50 52 | chr%<27| THEN PR|
|00000ec0| 4f 43 63 68 65 63 6b 5f | 63 74 72 6c 20 3a 20 47 |OCcheck_|ctrl : G|
|00000ed0| 4f 54 4f 20 31 32 34 30 | 0d 05 dc 3b e7 20 63 68 |OTO 1240|...;. ch|
|00000ee0| 72 25 3d 31 32 37 20 8c | 20 69 6e 70 75 74 24 3d |r%=127 .| input$=|
|00000ef0| c0 69 6e 70 75 74 24 2c | 6c 65 6e 25 2d 31 29 20 |.input$,|len%-1) |
|00000f00| 3a 20 f1 bd 28 31 32 37 | 29 3b 20 3a 20 e5 20 8d |: ..(127|); : . .|
|00000f10| 74 6a 45 0d 05 e6 04 0d | 05 f0 32 e7 20 6c 65 6e |tjE.....|..2. len|
|00000f20| 25 3d 6d 61 78 25 20 84 | 20 63 68 72 25 3c 33 32 |%=max% .| chr%<32|
|00000f30| 20 84 20 63 68 72 25 3e | 31 32 36 20 8c 20 ef 37 | . chr%>|126 . .7|
|00000f40| 20 3a 20 e5 20 8d 74 6a | 45 0d 05 fa 0b 6f 6b 24 | : . .tj|E....ok$|
|00000f50| 3d 22 6e 22 0d 06 04 67 | e7 20 73 74 72 74 79 70 |="n"...g|. strtyp|
|00000f60| 65 25 3d 30 20 84 20 73 | 74 72 74 79 70 65 25 3d |e%=0 . s|trtype%=|
|00000f70| 33 20 84 20 63 68 72 25 | 3d 34 35 20 84 20 63 68 |3 . chr%|=45 . ch|
|00000f80| 72 25 3d 34 36 20 84 20 | 63 68 72 25 3d 33 32 20 |r%=46 . |chr%=32 |
|00000f90| 84 20 28 63 68 72 25 3e | 3d 34 38 20 80 20 63 68 |. (chr%>|=48 . ch|
|00000fa0| 72 25 3c 3d 35 37 29 20 | 8c 20 6f 6b 24 3d 22 79 |r%<=57) |. ok$="y|
|00000fb0| 22 20 8b 20 6f 6b 24 3d | 22 6e 22 0d 06 0e 32 e7 |" . ok$=|"n"...2.|
|00000fc0| 20 6f 6b 24 3d 22 79 22 | 20 8c 20 f1 77 6f 72 6b | ok$="y"| . .work|
|00000fd0| 24 3b 20 3a 20 69 6e 70 | 75 74 24 20 2b 3d 20 77 |$; : inp|ut$ += w|
|00000fe0| 6f 72 6b 24 20 3a 20 e5 | 20 8d 74 6a 45 0d 06 18 |ork$ : .| .tjE...|
|00000ff0| 0f ef 37 20 3a 20 e5 20 | 8d 74 6a 45 0d 06 22 04 |..7 : . |.tjE..".|
|00001000| 0d 06 2c 17 e7 20 73 74 | 72 74 79 70 65 25 3e 32 |..,.. st|rtype%>2|
|00001010| 20 e5 20 8d 44 5e 46 0d | 06 36 15 c8 95 20 a9 28 | . .D^F.|.6... .(|
|00001020| 69 6e 70 75 74 24 29 3c | 6d 61 78 25 0d 06 40 11 |input$)<|max%..@.|
|00001030| 69 6e 70 75 74 24 20 2b | 3d 20 22 20 22 0d 06 4a |input$ +|= " "..J|
|00001040| 05 ce 0d 06 54 04 0d 06 | 5e 06 fb 37 0d 06 68 05 |....T...|^..7..h.|
|00001050| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+